home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / misc / dspice0s / cpytb4.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  1.6 KB  |  59 lines
  1. /* cpytb4.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Common Block Declarations */
  9.  
  10. struct {
  11.     doublereal value[200000];
  12. } blank_;
  13.  
  14. #define blank_1 blank_
  15.  
  16. /*<       subroutine cpytb4(itabo,itabn) >*/
  17. /* Subroutine */ int cpytb4_(itabo, itabn)
  18. integer *itabo, *itabn;
  19. {
  20.     /* Local variables */
  21.     static integer locn, loco;
  22.     extern /* Subroutine */ int getm4_(), copy4_();
  23.     static integer isize;
  24. #define nodplc ((integer *)&blank_1)
  25. #define cvalue ((complex *)&blank_1)
  26.     extern /* Subroutine */ int sizmem_();
  27.  
  28. /*<       implicit double precision (a-h,o-z) >*/
  29.  
  30. /*     this routine copies a table.  its use is made necessary by the */
  31. /* fact that only one pointer is allowed per table. */
  32.  
  33. /* spice version 2g.6  sccsid=blank 3/15/83 */
  34. /*<       common /blank/ value(200000) >*/
  35. /*<       integer nodplc(64) >*/
  36. /*<       complex cvalue(32) >*/
  37. /*<       equivalence (value(1),nodplc(1),cvalue(1)) >*/
  38.  
  39.  
  40. /*<       call sizmem(nodplc(itabo),isize) >*/
  41.     sizmem_(&nodplc[*itabo - 1], &isize);
  42. /*<       call getm4(nodplc(itabn),isize) >*/
  43.     getm4_(&nodplc[*itabn - 1], &isize);
  44. /*<       loco=nodplc(itabo) >*/
  45.     loco = nodplc[*itabo - 1];
  46. /*<       locn=nodplc(itabn) >*/
  47.     locn = nodplc[*itabn - 1];
  48. /*<       call copy4(nodplc(loco+1),nodplc(locn+1),isize) >*/
  49.     copy4_(&nodplc[loco], &nodplc[locn], &isize);
  50. /*<       return >*/
  51.     return 0;
  52. /*<       end >*/
  53. } /* cpytb4_ */
  54.  
  55. #undef cvalue
  56. #undef nodplc
  57.  
  58.  
  59.